(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     30291,        665]
NotebookOptionsPosition[     27001,        563]
NotebookOutlinePosition[     28910,        622]
CellTagsIndexPosition[     28497,        609]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Loading from AddOns directory", "Subtitle",
 CellChangeTimes->{{3.409504746608872*^9, 3.4095047490523853`*^9}}],

Cell["\<\
This use of needs calls the package in the AddOns\\ExtraPackages directory.  \
If DAQTesting is defined the executable should be with the package in the DAQ \
directory.  If DAQTesting is not defined set directory to desired location \
before calling Needs.  The directory returned is the directory of the \
executable that is being linked.\
\>", "Text",
 CellChangeTimes->{
  3.4094964807831984`*^9, {3.40949662913652*^9, 3.409496650737581*^9}, {
   3.409496725254731*^9, 3.4094967789719725`*^9}, 3.409498835168638*^9, {
   3.40949888613192*^9, 3.4094989780641117`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<DAQ`DataAcquisition`\>\"", "]"}], "\n", 
 RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.4094962499312496`*^9, 3.4094962866139965`*^9}, {
  3.409496388620675*^9, 3.4094963949497757`*^9}, {3.409496658048093*^9, 
  3.4094966648979425`*^9}, {3.4094967855314045`*^9, 3.4094967945343504`*^9}, {
  3.409497706836176*^9, 3.4094977177618866`*^9}, {3.4094993279071617`*^9, 
  3.409499335247717*^9}}],

Cell[BoxData["\<\"C:\\\\Program Files\\\\Wolfram \
Research\\\\Mathematica\\\\6.0\\\\AddOns\\\\ExtraPackages\\\\DAQ\"\>"], \
"Print",
 CellChangeTimes->{3.4095068753999233`*^9, 3.40950726668256*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"GetVoltages", "[", 
     RowBox[{
      RowBox[{"{", "0", "}"}], ",", "10000.`", ",", "500"}], "]"}], "}"}], 
   ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.409499477211851*^9, 3.409499477452197*^9}, {
   3.409499539441333*^9, 3.4094995410336227`*^9}, 3.4095003533516784`*^9, {
   3.4095003934593506`*^9, 3.409500438884669*^9}, {3.4095072943523474`*^9, 
   3.4095073104855456`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdmXdUE2kXxhELiw0VFBAVUWxgQ7FhuaJiwQYoi4IuCqJiQ0DBgtI70ntN
SEISF/tasGEFxYbIWj7F3l2ZcVV2Leg3k5u5c87yj+eeSSYz73vv8/yeVwsv
PxcfXR0dnU8tdHT4f4W/qVtm7z7Sm4UhU3u8ezq6O1x7VifX6y/UVvA+/Niy
VlYseI1wHW6lHgmmM743lA8WrtvBg8eRd5ttWPiu/lA312sy7JH6Zn4dJXx+
KnzfsaezbCwL1ceP7WrDToe200e1/zRR+L4j1NhsjS+czELGldCZlTvmwoE+
p9o4TBXu5wSHu8rO2c9gYdgGWYuTrV1gYzfrU+lzhPsvgLum1769nMtCVlMb
z9w5rpDYy89u/Hzh936F69aHjj5zZuHrzjUnN2UsAq9ZeYGPXYXfd4fMgNBh
DYtZWKZ33dT5fx7wPMJig42H8DxLqb6YYhM8xMITVip93t1bKjzfMjC6qV4d
sYyFbkmOb1vZLqcan9cL7r+arby9nIWZTt9NAu94Qc4JPauhnsLze8P7n+9f
WHmzsN1o74wn21ZQje/jQ/fbe9czaH6vlXQ/fL+VdP1JYWfFqbOr4OPIEd63
fIT3XU33M1p+/pa1jy84mqZahq4Q3n8NXZ/eb7Nu/i9rqcb1WEu/t/VNf5tf
ytdRjeuznuryPfwDbqD3w/Xyo/qRf0Ly87/9/rN+GyEs83x59BIW9M2Kfxt0
ZSPtB66nP9V9mps2Py70p/3D9Q2A8ZP+sU1ayMKER/N35WwIgGW2rk1jFgjr
HQCxlp23pjix4HpWJZ83OZD6Bdc/kPpJc7sum8DFKH7npNnCfmyi/oyLdr91
8tkmMOzp6ZA3TdifzeAw/o7jTGBBuurQ28DDm6m/cb+CwLfzZA/XYSycmNVe
1zo2CCJr+hm7jBT2LwiKrIt7tBjKQr21j+nTRcHwyNu9ZJG1sJ/BNI/vO5we
nme1BYKtUwZ49hX2dwtkS9RrvcxZ0GO7ca+8BYw++zRW9BD2eysE7nn4cbUx
C73r/Dz1rm+FoQ5fxqwzFPZ/G/haBEw068iC3R+Xgk6XbINeXd5NqflF6Ift
YFTfOvZaKxYWZFskb/bfDoNuNpt8+cFo+2M7nE4YKf3ZxMD6LdsUg6eGwFwP
30FtGEbbLyFQP6XkQPtXDMTwy2e0AzLYtJNrHjDa/tkBPSLtHXvfYKBkwuD6
/Jc7wKcquK5/NaPtp53g5Prhzp9nGajoFf3O+dhO6LtK6pP4B6Ptr1DYbWq2
1m4fA3U6D3X1E0Jh6e3MjW/UjLbfQgE2xG2fUcJAkL9Zh8dDwiDN3eFHcSGj
7b8wODs0JEaRyUDE0+rcE9lhcMn0UMfyJEbbj2HgYqE0bRvBQMqCTZY5P8Ng
jXOB5epgRtuf4XDRe5GychMDhRd67w9YHQ6RVXMO9lzDaPs1HGJe6I/avIoB
9ahr4+fdDIdKZ/tT2z0Zbf9GQEX9FocINwYOl22tHmQXAfvGfnS0cWG0/RwB
Nb8p7r6cxsA54/4LWssioMdL84dZwGj7OwJigvOfTbNj4EZc3cPH7SIhdUXd
2tkjGG2/R8Lc1W0/OVsxcP8L3zCRYNAn+otOP0bb/5Hw8sXPH/vMGXi9xrop
pyEScmefCtfryWjnIYrT07GxR4wZ+Hz/Tnjg9Ci4u36jwSkDRjsfUaB4OiTd
qAMDunOjOszfFwU1t1Q55/UY7bxEQV+nld3NWjPQkW9fk2hQuS/pt/Vro3Z+
osHT6Yl5zc9GMBvWYNkmPBqm1BeXWjQ3aucpGn5uuGM18HMjDJTE73/yRryO
8xVD97PtPHrCKRexxnmLoc/bazZYrHH+xHrex2Ruh2OpxnkUa/cV47kdiaX7
43zGQvozU1XtP42w6s9X3AqKNc5rHH1+0/RM7o3j6H44v2IdfnQy94RxtB44
z3Hw83rfogBdBnYN5O8YT+uJ8x1P652fx//F037gvMfTfinb8hOdAFcSP+t3
7Mpo5z8Bbhza1sqzOwOHtv+932ltAhyLmBKyqA+j1YME6pczfxVzE5oA785X
B6kHMFp9SISRBnP9vw5m4NrS2Zf0JiaCnmHXNx9tGa1eJFJ/3rv+z4JnikTq
X9SPROrvlyB/dLpjEvU/6kkSzcdH7unyg5PA0jrKztJL0Jck0NudMqxqHQM6
moFLAqPUuvINfoLe7KL5bJ+hjnCetQvm2lqYV4QI+rOL5tu01a8dhxzcBRN6
NSUuTBH0aBesm6Ub3pTHQH/+dc2SYVxRx6BcuaBPyaQ3I17u7fc8Mpn0CfUq
GXJ673UfUskAuHkcqPwrmfQN9SuF9G8Ot3oFringXToPzt0T9CyF9HPROH5D
UmDKt37lS/8S9C0Fri0/XuD0nYGR/DgbpkKCtPeVWh1Wq3eppN8VXLd3m5lK
+o76lwpt6pPCe7VlAaoeHI4KSQW/14YhfgasVg9TyS+qfhzkOiSV/AT1MRUq
H044bNSNhTlj4u2XvUgFmxq9IR17sVq9TIVxzu9ft+3DgqYdTdPIz1A/02Ca
tFuf/QNZWKziBTKN/A/1NI3889HjdtwOppF/or6mwfCUdrfmjWGBn1bjo2lg
4pJxrWQCq9XbNPLvv5yPcTuSRnyJ+psOlSYtot47sBDAL6d5Ovk/6nE68eS/
51bsXrYwnXgC9Tmd+DL0m93G63HpxCOo1+lQ5zr+oK0bC601ApVOPIn6nU48
lLTu1Tf1B7FGPc8gvurCqY1x/wziM9R3sc5tyIiNds8g/kO9F6+bd1sz92Ny
BvEi6n8G8aBi3mTD5efFz6MfiNetY7txIyw+D/pDJl0/WMkLhFijX2TS84zV
LKB4Hf1DrDX2kCXW6Cdi7eDrx0ZfFmv0l0x6nitShyMfm8Ua/SaL3tf5f2Yh
y0dk0fqi/4j13S5/299YmUW8iX4k1r/x8laQRfuJ/pRFvPk8svja7htZ1B/o
V1nUP2u5zTBplU38if6VDaGGr+DtLBY+fHJcHDM2m/oR/SwbPhs6tMieyQIn
Fuaf1mVTP6O/ZVO///D55/lyaTbNA/pdNs1PFP94f4o1+l825bl2d2QbJ7bN
gednNz3zGMBq/TAHfrSxWXnIkoU0g22jf5+UQ/yJ/phDvGmsaegc0gP0yxxw
6VwQdMaIheKw/udilDmkL+ifOfC7R+2PqvYsWFZ8j/10Pwf6pSsvWrRhtX6a
Q7y5m5erTrmkd+ivucSbNpz61U7LBf+3HrYrnjNav80FJ/s/xxk+YuCoV+i9
iVtzwaw6qvrSTUbrv7mgsv9xNfgqA5z4lvy+J5f0Gv04F3wb1zREnWTgwi3+
hXNJ39Gfc0n/Hfnt6JYHwVFX/mWkgl/nEX/WTrvLfnLMI95E/84Du37j9JvT
GHDbsfeIV2gebDcZYuQRK/h5HvlTA6fOtYfyiD/R3/NAtaWrlXEAA96N7lMm
vc4j3kS/zye/fMvbZY98iC87cc7KXfD/fPBvPfrSvYUMbOTl2TkfzpStd3o8
R+CBfBgu9fKYNIWBf3J4gckn/0Y+yCe/31F7aPHninziAeSFfOLPlvoJ5t6N
+cQTyA8FxJsJnHvU9ikgHkGeKICUbweTfLow0IlvP7cC4hvkiwJoWvzOaF1b
BrIPtvcvTxRr5I0C4qWe/OnGGbFG/iggvpL15RtQrJFHConHBi1JOfd5YCHx
GvJJIfHd/kyfOO+l4ueRVwrpeUZr7Ej8PvJLIT0PJ6ZGUCVeR54R66mTXt8r
/yreH/mmiOrL3G50HybWyDtizWkp94BijfxTRL9/WzNuRfS8yENFtN5Lett/
8L5aRDyJfFRE+/OMc9+bOsXEl8hLxbS/vmnvQ2CUWCM/FVM/MJfPT9njW0z9
gjxVDCXHUhpLh3H5TXM78fPIV8WQPKRh2fsJXJ7j7beumPIP8lYx9W9EIC8I
JZD+xOrWGEeBv0poHvTLe3CSVQJd9KqPXl0h8FgJzVMKRwd1fiXEk8hnYt21
5+UXIC8hvkReK4FSs7fZB6O4fMjLy90SypfIbyVQZ1fZcl4OA501giyhfIo8
J4GYY84fJysZWMg184XeErCA314/PSDkWQlUnR6w7EEFAxxr7fxmJyG+RN6T
EF/e5+3PVUL5G/lPQvrYa+yqab5+EtJT5EEJtOvL9nX7xMDyhS4DJPES4ku0
FwnMMl4xc2tLFuSce9yRSWCn86xWQXoCL0qIL18l8YIoofMG5EcJOG9z+2Lc
hQWNfN+V/IcnJTDZ4sI+HzOONy7yN5SQ3yBfivUBzmwPtpeSPyFvSok3PzXX
b3nTX0p8ifwpJT8c0/2MR297KWw6XO1aZivwqJT8VCM/HlJOJz8kzx4v8KmU
zns4r+YESUp8ibwqJT9v4Rfe6mKKlPwex1tKfDAtkQdAKfEk8qyU+CJW6VYz
4oKUzr+Qb6WQ7N3Axi1ioYYfn4dijbwrJb7hw4DkXymdxyH/lop8xONol1Li
P+ThUuKtTBNeEMTryMel8HJ+vXTAKhbu2DJjHWaINfKyWHfXAFgp8SDys1gv
Xc9vcCn0Wx/0ePtqgafF7yNOiTXytVg/58djv1gjb4v3H8DRh1uNeB35W6zX
POQHshT2JZqY1/oKPC6+/56vS7gnFGvkcxmthwYHTGT/4XUZrfdIzZ+MzjuR
32WUB4Ln9+IIXUb7hzwvI948vlb/i2SVjPYf+V5GeaOZo6c74TLiT+R9GfXX
ZI2dyf5z/imjfow8U8MRtIzONzEPyCBvkNkl1p7jRV4OamV03on5QEbz0pZ7
ukNvZZTPMC/IYOe/T/LUw1mY25UfODmdd2J+kNP/L6TycmwuJ/7EPCGn+b3F
0d+icXLKl5gv5DT/mtddICfexLwhh5P7Dx8/34nj0Zixty+ulxNvYv6QE28W
lfIAICd9w/ggJ958zK3eyFI5vDhVXrb3g3DeJad83lezIXLSV8wrclB2uDTN
v56BlTye35bDGd0T829cFs7H5HS+qZE/Vk78iXlGTueb74edGGDQTkG8iflG
rIfPKeOIT0H+gXlHQf4SuJo3YAXxJ+YfBTQYb0xrmcDAER4vFysgcdCKwuWh
jDYPKcjPNNsbqKDzFcxHCjp/magRQAX5J+YlBZ13hnH0vUilIN7E/KQg3jz/
eSBHWAryZ8xTCvLvNjwePVBAqwtuKwvHMNp8pSDenDX0p0Vzk4L4AfNWGfGC
Ru47izXmrzLikdqVfOAoo/NOzGNlxD+GmgERa8xnZXT+9itv755ijXmtjHgy
70R2qsE28TrmtzLisQeauFxGPIZ5Tqy5m/26Y6/4fcx34v29O/HEIdaY98Tv
lw3mgV+sMf+Jn38zk19A8TrmQSXx52CNISnp85gPlfT8GnuzUdLzYV5UEk8e
LGKUVbPFGvOjktazqeJ/Cc0+SuJLzJNK4slx3PTahilpvzBfinWIJq4o6fwS
86aS9ruSH98/xOuYP5XUP7oawVISP2IeVVK/TZ8R8MXgjZL6EfOpks4v472X
PpjeUkX9i3lVReeZV3nc7qmiecD8qqJ5MeAfb4yK5gvzrIryngtv584qmk/M
tyrKh1n1+qv7rFPRPGPeVdG832P5hlZRHsX8qyK+7KEBBO55054/HXlUyMNi
7TnoSqfq4yrITLJ13XlByMcq4stSXq7qVaR3mJdVpI8vOPWzZcQa87OK9HTg
zqSKtfpq0lvM02qo8jin30+XhXVcmCrtq6bzS8zXahiVM/RMQDsW9h3hX1hN
fIl5W018+Te/HYvUxJeYv9XgtyNsxCkTFkbx+BKgJj/BPK4G4f/Ht7Sz5B5R
Tech/wdQSygf
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.97},
  PlotRange->{{0., 0.0499}, {0.96742637984741, 1.0258332457239978`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.409505429941456*^9, 3.4095068929451523`*^9, {3.4095072792406178`*^9, 
   3.4095073165142145`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"GetVoltages", "[", 
     RowBox[{
      RowBox[{"{", "0", "}"}], ",", "10000.0", ",", "600", ",", 
      RowBox[{"MessageLevel", "\[Rule]", "0"}]}], "]"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.404152355230976*^9, 3.4041523599277296`*^9}, {
   3.4041524146564255`*^9, 3.4041524281458225`*^9}, {3.404155880550136*^9, 
   3.404155916371645*^9}, {3.4081987660160017`*^9, 3.408198785183563*^9}, 
   3.4082075198934593`*^9, {3.408207553211368*^9, 3.4082075819226527`*^9}, {
   3.4082091985772877`*^9, 3.4082092011910467`*^9}, {3.4092706293833456`*^9, 
   3.4092706375751247`*^9}, {3.409499285275861*^9, 3.409499289001218*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxdmXdYU1kTxu2Cunax4Gdvu6zr6ip2Bxu2tVfsomAXEAVE6QJSpEhHSkIS
kkCCvfeKotgRe++9nyy2755M7pzn0T92n3nOzeXec2be+b1zWzq7jXOpUK5c
uSnSf/j/5X+RW5Zl9a5mgo4Dm758YN8E7rRtfDu2uhz/AQHRjdKia5nAucvE
v//Q/0MxrveCzPKNJkbUM8E3/ftLI50dYGGFpZc628jXD6S4cO/u9VXeOcKE
hg2Lg23l3w+nOOFMwNBDfiMpxvuNgXe7bCICmpug0zJV+f2Vx8FKuyXD7ZrJ
9x8PVo5HCi+3MEHSlyqzUv+dSNfj35tE62X+i/avSJhC6/j3p0Kt+TaD17Q2
weyq5xqPvTGN7o/PM4N+fyK2s3fHlrPo9/h8s+FAyeIqHVqZwCZ6+ItKXefQ
9fi8znS/oWO+NfIsdabf4/PPpetX1y8Yct933i/v40LXF1yb5TW6mSvdD9/P
FZIVR6qXNjXB/Yw6mgNH5sOm2CUxfzWR33cB5FofHX2jkQnqzzl22c5lIcX4
/ougW9DRhNv1TeDYdmWFdKvFdJ64H4vp/FY9b9fZyrCEzh/3Zynli8HIH3AZ
yPmE++UGu4obt0yoaoK7HpExjz64wfh3x1UvKsn75w4jNp94+rqcCaxts2b+
fkbEuJ8e8Ns+j4KhZQxaff+y8l6GByimFbp9MjHL/i6H4w6nWdk7Bn3ujl6f
smw5XM9feXDiC2bZ7+VgnHUmoPxzBhOP6NSjHDzBtkHL/sanzLL/njBqd3FV
q/sMzLeru4JiPI8V0ORgm9923WSwLnTq5f0PV0CJV/ukA5eZ5XxWwtlnHa4f
Ps9AOX/bC88dK8F2w5VpjYqZ5by8oGbTq9m2pxnsG1ajgl24Fwz2DnH1Osos
5+cFXWrfXNz2AIMrdi6NH0zxhj5Pwt6s2css5+kNA7et6xK4k8Hr3w7+nfaH
D2hiIr1CtjLL+fqAt3vMj4g8BlXf2Uiv7AMPveIGrM9llvNeBeqoDWFxOQxa
XHKbVfXcKthTkFiUkMUs5+8LLe8l10xJZ9Br+ymvg9m+4NjjbT3HJGbJh9Xw
YOnG5MwNDMYnt4xZ6bEaehZl3lDEMEt+rIa9tYbPMEUxWOrjq/lz4BooMuY4
a8OYJV/WgFOV0Y9/hDAI49tX3w/6u3ydPymIWfLHD4KLtC+M/gyy+/x5Jf2J
H9TQlXs3fRWz5JM/aO5t2rlrOYM9zUJfjt3tDy9aV/GZ68Es+RUA1tE7+h1c
xOBSuTsVrCMD4JrDLL+6S5gl3wLA1nt38BFXBl4etr/d6xgI+2xdKjeexyz5
Fwhll+qf9ZzBIPhBYeq+5EDY0Gnx+ubTmSUfA6Fk1LKLraYwiB2/ok3Kz0Do
MrJZqt9YZsnPIKiwe4XT72MYZBxvsXn5giBwbXOmSckoOV+DwNrz3Mxrwxno
uxX3HnUxCCpPXX2/01A5f4NhzJAO88IHM9iRu6rw917B8KJXyZM7A+R8Dgar
bp1ere/L4GjDduMrq4LhUtfghfYOcn4HQ3TvW8se92Jwft2lO/eqh0DgrlBj
zz5yvofQ72/+xxMmhK7H/Bfxs0V2X1JuixjrYS3Fn2+WBnk6ihjrYy39vQoj
1/42etNasDvS5e/4nnK9iOtr8vRtFErrWD+hMGNoxPs+PRjYdrrdpkqQWMd6
CqXfd1BEbL7/XMRYX2H097vWse9zYJyIsd7C6P37mw84DFpvv/bHg35y/YXR
fo76GCOdcDjU32Wni+wv12M4ncfUeb2lEwmn88L6DIf75y/m3HRkML/kqbSD
4XS+WK/r4Hl5n8w//2WwwjFRemMRY/2uo/wJ2uUgPeE6GLPGo0G7CXI9r4O+
NrYTfCcyWN+B3zGC8hHrO4LyNT2N/4ugfMZ6j4DNJ+usc5/DQFuNV3Qk1QPW
fyT0ZVb7XZcy2Lb6w+YxiyPh5ILpPWu5y3oQCRNbGJdv92Jw+FWWVKGRVJ+o
D1Hg+nDSFisfBsUzRpyq2jeK6hn1IgqGXDe1Hh/K4Po5Nv6hJgqSpn25OzpC
1o8o0o8noL57sGY01It6P3lYvKwn0aRHH6WnS/eOhrrnHEa+3CjrSzTpWTlz
wUWT3qHerCd9rJGgDx47bD04+0TvDSuQ9Wc9DEjruqN0G4PGlSbV7Lh1Pekt
6tF6WFT2d8eL+xi0469rGwORDp2eFx+S9SkGrJI6aoqOMejypKDto5AYcCoJ
auV5UtarGDjfP/COWxEDmDxty6FXMaDd75++5JysX7EQZXO5YYOLDP6Vdm/j
xFgIvb26rutVWc9iYWC9dmP3ljKY0pMfSCw4lJ0bUf22rG+x1K/+4eVcLw4q
QavQzQ9lvYuj/rdHynaboXGQ/V/z7/qXsv7Fwbe0Fb7j3kjPd/LWjrVr4iDh
VbM9uW9lPYyDJOXyDyO+MDj5Y6uUIXGwz/+k3ftvsj7GQdkD90WDf0jP3z2i
/+zHcVAy1Faf9lPWyziotraJS3JFE5jTsXE88QHqZzzxg5OOC2Q88QXqqYjv
3qsunWA85IQstelW12TR13jiE16tDXfFE/+g3or41djd0onEEy+h/m4gnlrO
t7O5iFGPNxB/mY7Oy5s9QcSozyIO+NrL/dw6EaNebyCeq2wWKBGjfovro5c8
/ap/L9ZRzxOIL+tKatOwXQKto76LOPV2QnjoVHE96r2Im9ssGvkxJuEX/kyg
99WMcqg355hYx36QQPtlF24jlbCIsT8kEq9vPcQFIpH4EvtFIvFlD/MGJhJf
Yv8Qsbk9JCXSeWM/SYQp9ZZN7VHTBIMXur0LPZ1I+YL9JZH48oxy8M6P30WM
/SaJeHPsDds1c7okEV9i/0mi/L1W90P/865JYNO06euMr3I/SgKT46lt7BOD
mVzeNiZB+WFFvX+8kvtTEvHmo5Cs4rzzSdDmrFcFpydyv0qielwsHUajSslw
q8zbcfoDuX8lUz2//zTcKaxHMtU79rNk4k1JLJp/WpJMeoH9LZl484cLezRH
mUz6g/0umXhzLX+8kmTIvXxrU4c9cv8TcfVSlXvfaimkj9gPU8De3/6/G5sY
xNfytc/vlwLtPXsF3dfK/TGFeLOhOaFFjP0yBdIPvIiCTAZZge2OhmlToPDj
q/MD0uT+mQLDxg0ueZ/AoM2eb+GfbqbATf2Qxp9j5X6aQryZx+Wqdirc6qpo
po6U+2sq8WZnSf0uDEol3sR+m0q8ucs54HrfVamw9uf3fCc/uf+mUn+TxDc7
35gKn7KcPldfIffjVOLN45f5C6cSX2J/TiX+HM6PwyYNlKdqDlrqIvfrNFjs
vu/kcWcGFwZde/dpeBr1Z+zfadTfJ/sV7HQOEDH28zTizduSOl/YlgbsYeHV
i+Pk/p4GMze0vBU4ksHcN1MH9HuWRryJ/T6deOQFb5dN04lfsP+nE++4c3ke
K2LkgXTiKZbCBSadeAr5QKz7Xdjm9HlPOvEZ8oKIK1pHNp/7RsTIDxuJ9yKl
7nGh1UZaR54QcW2efpNFjHwh4uStNTwMURvpeZA3xPr/+HTjsPh7yB8iVrXm
CShi5JEMin+fHnv0c4cM4kXkE7G+OdFl3dwZYh15JYN4097cjjJo/5BfMmi/
JTGtDycz6LyQZzJg/GH/tv8MYjCw37PrhjIRI99k0nmflk6jSScRI+9kEm9K
Wio9YCblE/JPJuXTVXO5ZVL+IQ9lQsDrhrW9nRhMb9H//dyzmZS/yEeZENFs
wbCmsxk8lLrvxXJZlO/IS1lw/lr1cosWMlgY/3oNdMui+kF+yiJ/9/b0sQHG
hVlwY2bFrrNXyjyVRbzpZb5dFgxblvfXFl+Zr7Konr/x9nspi3gTeSuL9CLY
kwtCNukJ8lc2+VtrQ1NJsrKJN5HHsskfx0p0cMktm3gT+Swb3JX9rJ9lM2jw
v9OPQZ0NFT0eHeqml3ktm/gyg8vLNREjv2WD7mgXjyu7GNQxC7KCeBN5TkG8
OUFK5uMtFDBve+nDZidkvlPAU2Y3p7CQgcRa/l97KagfIO8pqF/c5O1vogIe
DvabtPCSzH8KmK2/eLlOCYNmPeYPWuimgIzhF2JrXpd5UAHleqyKnHWHwZwJ
49orIhTUv7C9KKi/qaXuUapSEG8iLyqIL59Gc0FUEF8iPyogLtnTfvQHBmb5
vqag+Q7ypIL687IT/IYK6ufIlwriyy1Ss91aQ0nryJtK4oVP36/4PG+nJJ5A
/lQSb3Rvcnhai/5K4kvkUSXxi1l+pimJN5FPlcQ7Uq+WBElJvIm8qiReKu8W
VOlErIixvJXEX4OiOAAqideQZ5XEd+HayUVdjosY+VbERbx87iiJ35B3RczN
gMKk/GWemkO/H8txtK6IkYdz6HkSG3FBEOvIxyIu7fq2x+AhIkZeFnETM4Dl
/MLPIp6xlB9wDu0P8nQO8SXilFhHvs6BnqEN64Q1NMEjXh6bc+h8kLdziC/b
S/QxuSiHzhf5O4fOf9EdXpA5ULzxmO2jGjKP51D+GMumS0+YA5f7HZ/11Erm
cxXxphkHGqlgRmP3dgMqyLyuIj/0j/mfivgS+V1F+e49uplE6CqqB+R5FdXP
3sXW/ynmq4g3ke9VULj27LFKjxl8l+ipNEhF9Ym8ryJ/6GBuZyqqZ+R/FfFm
yOEiiaBVpA/oB1SkJ4VcDi6oiC/RH6hIf6pJT7fthYr0Cv2CiuaZIxvwglOT
3qF/UJMexnE5bi5i9BNq4s3LEv1N6akG+zVPKvbUyPMoNemv+XXHq2k+gH5D
Tbw5NazH1RNL1cSb6D/UxJuZORwA1DSPQPugpnnFPWn3/slRE1+iP1ETX7Y2
H4ia5h/oV9TUr1w5nl9V07wE/YuaeNMsf+/U0H3T1rK9y5jFz6ipf77utK99
reoaitHfaGi+8/e/uRLxaagfo9/R0HzIcwFvwBrq5+h/NDR/2snx0klDfIB+
SEPzTPPxemqIL9AfaWj+1dcsgBriF/RLGpqfBUr0PUUnYvRPGuKlY587SISl
IT5CP6UhnqvC8eiW5pd5oIb4a9hfP1t+/yLW0W/l0rpZ7uvk0v3Qf+XS9Rdc
ueEQMfqxXJpP1jMXiFhHfybiSby9zxIx+jXx+7R9yXG1fHOh1cW7W5/Zy/5N
PN8ts10Wv0c/J2LpZpP8CsTzo78T8dzanDjE9ej3cok/c//kwJ9LvIn+L5d4
8vlQvoG5dD7oB7V0nn+aG5KWzhv9oZb40tzeOmtpfol+UUv5tDXzrfbkCC3x
JfpHLc0zv+y5EfndRUv5iX5SC8z7YLVTMxn0lKq3a6CW8hv9pZb81hqzXdES
X6Lf1FI9HeLlu11LvIn+U0u8WcEsWFriTfSjWqpfxyHL/6v1XEv1jv5US/oQ
MXfGLceKOuJN9Ks60pezHLf/pyP9Qf+qg8rWA+PfpDCoxR+vu474Ev2sjvRt
HG/nY3XEl+hvRZx0xXpBqyU6UIbe695pi+x3dcST19/xhNaR30f/qyM9b2oG
BB3NC9APi/VZv5+pXbhXR9+z0B/raJ6Zw+Xqio76B/plHc0vHkvq1/WtjvoN
+mcdxIT4nnO+IdWzf/SexdZ66k/op/XUz5ZIZiqntZ7mK+iv9dQPN+3kL6wn
vkS/rafvgx/4cUzRQ/H3pp0VTPbfeurH3Ti+LNfTfBP9uJ76uU/1NtIj6qH7
TLcH/aqYLP5cT/1/v6TOO3L1xAvo1/XEEz8Hlr1+eVhP/IH+XQ8Dqh4rvVfb
BAO4/b2pJ55BP68nngnl8vxZT3yJ/j6P+OgUn9bWEjH6fRFXNwNbHvEm+v88
4q/RF+On/xiYR7yG8wARb+D2baa4HucD4n4lPP18xDrOC8TvG5nHoSLG+UEe
8eW0AdzgihjnCeL+3C3ULhTrOF8Q8QNf3tDF9ThvEM/T1myQRIzzh3y6fgFv
Rw3yaX9xHiHi/PMlk151yqfzwPlEPvmDNy8P92w9PJ/OF+cV+cSXXay4wRQx
zi/yaR6+kk/L/UWM84x8yrfd5nFUPvkbnG/kk//5yvF0az7xJs478imf+0nd
t1txPvEmzj/yiTeDkgZKDiSf5ps4D8mn7+UntvwlIZuB6g/nIwaqTyt+O1sD
1S/OSwz0/XwEb7/2BvKbOD8xkD7EcLs6xkC8ifMUA+nNxVYcsAzkf3G+YoD4
9qF5qw5K9Ww2rAbSO5y3GMBLc+ej3Q7Jj5vHAQbSR5y/GOj70EYuL3sMNL/E
eYyBvifd4Th+2fDL9yYDzQda8q8Vrw2k5zivMZDezzvLE8ZI/QDnN0biTd0z
3oCNEvf8q/waLs9zjMSbL/n29TFChW6a3Lxgeb5jpPnHXxw3JhmJL3HeYyS+
9OD23N1I3/dw/mOkfrldqrYbkSLGeZCRvhcyya3W0RiJN3E+ZCS+7L2B31DE
OC8ywqEtxzecm8TAn8vpdSPxAc6PjMQHR7j9+GikeSbOkwqILyqZBwgFxCM4
XyqgeeaQilyhRYzzpgLiHa4GUwcUEG/i/KmAePMcT5fpBcRTOI8ScR3zQEfE
OJ8S8QTz564C4jmcV4n1lDgORGL9/x6qZpQ=
   "], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1lOwGAYQBdAX27Zt27ZtN2ps27Zt204bq0EbNbbtpOdNP87c/525u5uk
aYeqvwcJCAioHTQgIDBFQDCCE4KQhCI0YQhLOMITgYhEIjJRiEo0ohODmMQi
NnGISzzik4CEJCIxSUhKMpKTgpSkIjVpSEs60pOBjGQiM1nISjayk4Oc5CI3
echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapTg5rUCpwv
dahLPerTgIY0ojFNaEozmtOClrTiN1rThra0oz2/04GOdKIzXehKN7rTg570
ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxi
NnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3
e9jLPvZzgIMc4jBHOMof/MkxjnOCk5ziNGc4yznOc4G/uMglLnOFv/mHq1zj
Oje4yb/c4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgY984jNf+Mo3
vvODn/wisPxBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7y
U4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahLPerT
gIY0ojFNaEozmtOClrTiN1rThra0oz2By7sDHelEZ7rQlW50pwc96UVv+tCX
fvRnAAMZxGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzmMJd5
zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvawl33s
5wAHOcRhjnCUP/iTYxznBCc5xWnOcJZznOcCf3GRS1zmCn/zD1e5xnVucJN/
ucVt7nCXe9znAQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znBz/5
ReDhD0JQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQk
EYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQ
hSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KRW0P//q/8AnFkSGw==

       "]]}}, {
     {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwl1lOwGAYQBdAX27Zt27ZtN2ps27Zt204bq0EbNbbtpOdNP87c/525u5uk
aYeqvwcJCAioHTQgIDBFQDCCE4KQhCI0YQhLOMITgYhEIjJRiEo0ohODmMQi
NnGISzzik4CEJCIxSUhKMpKTgpSkIjVpSEs60pOBjGQiM1nISjayk4Oc5CI3
echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapTg5rUCpwv
dahLPerTgIY0ojFNaEozmtOClrTiN1rThra0oz2/04GOdKIzXehKN7rTg570
ojd96Es/+jOAgQxiMEMYyjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxi
NnOYyzzms4CFLGIxS1jKMpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3
e9jLPvZzgIMc4jBHOMof/MkxjnOCk5ziNGc4yznOc4G/uMglLnOFv/mHq1zj
Oje4yb/c4jZ3uMs97vOAhzziMU94yjOe84KXvOI1b3jLO97zgY984jNf+Mo3
vvODn/wisPxBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7y
U4CCFKIwRShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahLPerT
gIY0ojFNaEozmtOClrTiN1rThra0oz2By7sDHelEZ7rQlW50pwc96UVv+tCX
fvRnAAMZxGCGMJRhDGcEIxnFaMYwlnGMZwITmcRkpjCVaUxnBjOZxWzmMJd5
zGcBC1nEYpawlGUsZwUrWcVq1rCWdaxnAxvZxGa2sJVtbGcHO9nFbvawl33s
5wAHOcRhjnCUP/iTYxznBCc5xWnOcJZznOcCf3GRS1zmCn/zD1e5xnVucJN/
ucVt7nCXe9znAQ95xGOe8JRnPOcFL3nFa97wlne85wMf+cRnvvCVb3znBz/5
ReDhD0JQghGcEIQkFKEJQ1jCEZ4IRCQSkYlCVKIRnRjEJBaxiUNc4hGfBCQk
EYlJQlKSkZwUpCQVqUlDWtKRngxkJBOZyUJWspGdHOQkF7nJQ17ykZ8CFKQQ
hSlCUYpRnBKUpBSlKUNZylGeClSkEpWpQlWqUZ0a1KRW0P//q/8AnFkSGw==

       "]]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 1.45},
  PlotRange->{{0., 0.0599}, {1.4509055125500443`, 1.5086634348612653`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.409505433776971*^9, 3.409506897521733*^9, 
  3.4095072866312447`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.4092706984526625`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"?", "GetVoltages"}], "\[IndentingNewLine]", 
 RowBox[{"?", "GetVoltagesTrig"}], "\[IndentingNewLine]", 
 RowBox[{"?", "GetVoltagesDigTrig"}], "\[IndentingNewLine]", 
 RowBox[{"?", "OutputVoltage"}], "\[IndentingNewLine]", 
 RowBox[{"?", "OutputWaveform"}], "\[IndentingNewLine]", 
 RowBox[{"?", "ClearTask"}], "\[IndentingNewLine]", 
 RowBox[{"?", "ReDoLink"}], "\[IndentingNewLine]", 
 RowBox[{"?", "SerialPortCommunicateCpp"}], "\[IndentingNewLine]", 
 RowBox[{"??", "SerialPortCommunicateCpp", "\[IndentingNewLine]"}]}], "Input",\

 CellChangeTimes->{{3.4095031931851587`*^9, 3.4095032043712435`*^9}, {
   3.4095032507980013`*^9, 3.4095032755035267`*^9}, {3.4095033704400387`*^9, 
   3.409503436755395*^9}, {3.409504177480506*^9, 3.4095041794333134`*^9}, 
   3.4095042173077745`*^9, {3.409504502347642*^9, 3.4095045156467648`*^9}, {
   3.409504550006171*^9, 3.409504562844632*^9}}],

Cell[BoxData[
 StyleBox["\<\"GetVoltages[channel list, sampling frequency, number of \
samples per channel] is a function that returns a list of voltages as read by \
the NIDAQ card. The channel must be a one dimensional list, frequency a real \
number, and number of samples an integer.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellChangeTimes->{3.4095069038207903`*^9},
 CellTags->"Info3409478102-4553573"],

Cell[BoxData[
 StyleBox["\<\"GetVoltagesTrig[channel list, sampling frequency, number of \
samples per channel,trig channel,trigger level] is a function that records \
voltages on input channels at specified frequency after receiving an analog \
trigger of correct magnitude on trigger channel. The channel list must be a \
one dimensional list, frequency a real number,number of samples an integer, \
trigchannel an integer, and trig level a real number.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellChangeTimes->{3.409506904591899*^9},
 CellTags->"Info3409478104-4404174"],

Cell[BoxData[
 StyleBox["\<\"GetVoltagesDigTrig[channel list, sampling frequency, number of \
samples per channel,trigger channel] is a function that records voltages on \
input channels at specified frequency after receiving a digital edge on \
trigger channel. Channel list must be a one dimensional list, frequency a \
real number, number of samples an integer, and trigger channel an \
integer.\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.4095069053429794`*^9},
 CellTags->"Info3409478104-1653277"],

Cell[BoxData[
 StyleBox["\<\"OutputVoltage[channel list, voltage] is a function that \
outputs voltage on the specified channels. The function returns an integer \
that can be used with ClearTask to stop the task. The channel list must be \
one dimensional, and voltage must be a real number.\"\>", "MSG"]], "Print", \
"PrintUsage",
 CellChangeTimes->{3.409506906054002*^9},
 CellTags->"Info3409478105-1005211"],

Cell[BoxData[
 StyleBox["\<\"OutputWaveform[channel list, waveform, frequency of point \
output, number of periods] is a function that outputs the waveform list as \
voltages on listed channels at specified frequency for a certain number of \
periods. The function returns an integer that can be used with ClearTask to \
stop the output. For continuous output use the option SampleMode->Continuous. \
The channel list must be one dimensional, waveform a list of real numbers, \
frequency and number of periods must also be real numbers.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.4095069067750387`*^9},
 CellTags->"Info3409478106-3960616"],

Cell["Global`ClearTask", "Print", "PrintUsage",
 CellChangeTimes->{3.409506907185629*^9},
 CellTags->"Info3409478106-9971874"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"ClearTask", "[", "task_Integer", "]"}], ":=", 
         RowBox[{"ExternalCall", "[", 
          RowBox[{
           RowBox[{"LinkObject", "[", 
            RowBox[{"\<\"getvoltagestm\"\>", ",", "5", ",", "5"}], "]"}], ",",
            
           RowBox[{"CallPacket", "[", 
            RowBox[{"7", ",", 
             RowBox[{"{", "task", "}"}]}], "]"}]}], "]"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["ClearTask"],
  Editable->False]], "Print",
 CellChangeTimes->{3.4095069072557297`*^9},
 CellTags->"Info3409478106-9971874"],

Cell[BoxData[
 StyleBox["\<\"ReDoLink[] is a function that resets the Mathlink connection, \
or if no connection is currently open it establishes a connection.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.409506907986781*^9},
 CellTags->"Info3409478107-1952764"],

Cell[BoxData[
 StyleBox["\<\"Send to serial port\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.409506908687789*^9},
 CellTags->"Info3409478108-8920976"],

Cell[BoxData[
 StyleBox["\<\"Send to serial port\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.4095069089882207`*^9},
 CellTags->"Info3409478108-8820599"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"SerialPortCommunicateCpp", "[", "L_List", "]"}], ":=", 
         RowBox[{"ExternalCall", "[", 
          RowBox[{
           RowBox[{"LinkObject", "[", 
            RowBox[{"\<\"getvoltagestm\"\>", ",", "5", ",", "5"}], "]"}], ",",
            
           RowBox[{"CallPacket", "[", 
            RowBox[{"0", ",", 
             RowBox[{"{", "L", "}"}]}], "]"}]}], "]"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["SerialPortCommunicateCpp"],
  Editable->False]], "Print",
 CellChangeTimes->{3.4095069090483074`*^9},
 CellTags->"Info3409478108-8820599"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"listforcall", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<messageToSend\>\"", ",", "\"\<Hello World\\a more\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<listenForReply\>\"", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<messagelevel\>\"", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<timeout\>\"", ",", "0.30"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<timeoutIsErr\>\"", ",", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<charsToRead\>\"", ",", "30"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<terminationChar\>\"", ",", "\"\<\\a\>\""}], "}"}]}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{"SerialPortCommunicateCpp", "[", "listforcall", "]"}]}], "Input"],

Cell[BoxData["\<\"Hello World\"\>"], "Output",
 CellChangeTimes->{3.409505439094618*^9, 3.4095069160183296`*^9}]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{832, 572},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3409478102-4553573"->{
  Cell[20442, 397, 408, 7, 58, "Print",
   CellTags->"Info3409478102-4553573"]},
 "Info3409478104-4404174"->{
  Cell[20853, 406, 574, 9, 75, "Print",
   CellTags->"Info3409478104-4404174"]},
 "Info3409478104-1653277"->{
  Cell[21430, 417, 517, 8, 75, "Print",
   CellTags->"Info3409478104-1653277"]},
 "Info3409478105-1005211"->{
  Cell[21950, 427, 411, 7, 58, "Print",
   CellTags->"Info3409478105-1005211"]},
 "Info3409478106-3960616"->{
  Cell[22364, 436, 658, 10, 92, "Print",
   CellTags->"Info3409478106-3960616"]},
 "Info3409478106-9971874"->{
  Cell[23025, 448, 126, 2, 42, "Print",
   CellTags->"Info3409478106-9971874"],
  Cell[23154, 452, 1110, 30, 23, "Print",
   CellTags->"Info3409478106-9971874"]},
 "Info3409478107-1952764"->{
  Cell[24267, 484, 279, 5, 40, "Print",
   CellTags->"Info3409478107-1952764"]},
 "Info3409478108-8920976"->{
  Cell[24549, 491, 165, 3, 40, "Print",
   CellTags->"Info3409478108-8920976"]},
 "Info3409478108-8820599"->{
  Cell[24717, 496, 167, 3, 40, "Print",
   CellTags->"Info3409478108-8820599"],
  Cell[24887, 501, 1131, 30, 23, "Print",
   CellTags->"Info3409478108-8820599"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3409478102-4553573", 27348, 575},
 {"Info3409478104-4404174", 27458, 578},
 {"Info3409478104-1653277", 27568, 581},
 {"Info3409478105-1005211", 27678, 584},
 {"Info3409478106-3960616", 27788, 587},
 {"Info3409478106-9971874", 27899, 590},
 {"Info3409478107-1952764", 28091, 595},
 {"Info3409478108-8920976", 28201, 598},
 {"Info3409478108-8820599", 28311, 601}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 117, 1, 49, "Subtitle"],
Cell[710, 26, 581, 10, 65, "Text"],
Cell[CellGroupData[{
Cell[1316, 40, 474, 7, 52, "Input"],
Cell[1793, 49, 198, 3, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2040, 58, 509, 12, 31, "Input"],
Cell[2552, 72, 6361, 111, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8950, 188, 806, 15, 31, "Input"],
Cell[9759, 205, 9661, 167, 242, "Output"]
}, Open  ]],
Cell[19435, 375, 70, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[19530, 380, 909, 15, 212, "Input"],
Cell[20442, 397, 408, 7, 58, "Print",
 CellTags->"Info3409478102-4553573"],
Cell[20853, 406, 574, 9, 75, "Print",
 CellTags->"Info3409478104-4404174"],
Cell[21430, 417, 517, 8, 75, "Print",
 CellTags->"Info3409478104-1653277"],
Cell[21950, 427, 411, 7, 58, "Print",
 CellTags->"Info3409478105-1005211"],
Cell[22364, 436, 658, 10, 92, "Print",
 CellTags->"Info3409478106-3960616"],
Cell[23025, 448, 126, 2, 42, "Print",
 CellTags->"Info3409478106-9971874"],
Cell[23154, 452, 1110, 30, 23, "Print",
 CellTags->"Info3409478106-9971874"],
Cell[24267, 484, 279, 5, 40, "Print",
 CellTags->"Info3409478107-1952764"],
Cell[24549, 491, 165, 3, 40, "Print",
 CellTags->"Info3409478108-8920976"],
Cell[24717, 496, 167, 3, 40, "Print",
 CellTags->"Info3409478108-8820599"],
Cell[24887, 501, 1131, 30, 23, "Print",
 CellTags->"Info3409478108-8820599"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26055, 536, 815, 21, 72, "Input"],
Cell[26873, 559, 112, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
